Loadstar 148/148.d81/b.potpourri ii

Commodore BASIC | 2022-08-26 | 2KB | 44 lines

62000 dv=peek(186):ifdv<8thendv=8
62010 print"[147]":poke53280,0:poke53281,0:poke211,0:poke214,08:sys58732
62020 a$="[219][219][219][219][219][219][219]":f$="ls potpourri ii"
62030 p$="[204][207][193][196][211][212][193][210] [210][197][195][201][208][197] [208][207][212][208][207][213][210][210][201] [201][201]":au$="by [202]ames [212]. [202]ones"
62040 print"[176][178][178][178][178][178][178][178][155][178][178][178][178][178][178][178][152][178][178][178][178][178][178][178][178][151][178][178][178][178][178][178][178][178][152][178][178][178][178][178][178][174]
62050 [153]"-(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)list"a$"print#"a$"(NULL)poke"a$"(NULL)print#"a$"<
62060 print"[171][219][219][219][219][219][155]"a$"[152]"a$"[219][151]"a$"[219][152]"a$"[219][155][179]
62070 [153]"-(NULL)(NULL)(NULL)(NULL)list"a$"print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list(NULL)<
62080 print"[171][219][219][219][155]"a$"[152]"a$"[219][151]"a$"[219][152]"a$"[219][155][219][219][179]
62090 [153]"-(NULL)(NULL)list"a$"print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list(NULL)(NULL)(NULL)<
62100 print"[171][219][155]"a$"[152]"a$"[219][151]"a$"[219][152]"a$"[219][155][219][219][219][219][179]
62110 [153]"-list"a$"print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list(NULL)(NULL)(NULL)(NULL)(NULL)<
62120 print"[155][171][219][219][219][219][219][219][152]"a$"[219][151]"a$"[219][152]"a$"[219][155][219][219][219][219][219][219][179]
62130 [153]"list-(NULL)(NULL)(NULL)(NULL)(NULL)print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list"a$"<
62140 print"[155][171][219][219][219][219][152]"a$"[219][151]"a$"[219][152]"a$"[219][155]"a$"[219][179]
62150 [153]"list-(NULL)(NULL)(NULL)print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list"a$"(NULL)(NULL)<
62160 print"[155][171][219][219][152]"a$"[219][151]"a$"[219][152]"a$"[219][155]"a$"[219][219][219][179]
62170 [153]"list-(NULL)print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list"a$"(NULL)(NULL)(NULL)(NULL)<
62180 print"[152][171]"a$"[219][151]"a$"[219][152]"a$"[219][155]"a$"[219][219][219][219][219][179]"
62190 print"[152][171]"a$"[151]"a$"[219][152]"a$"[219][155]"a$"[219][219][219][219][219][219][179]"
62200 print"[155][173][177][177][177][177][177][177][151][177][177][177][177][177][177][177][177][152][177][177][177][177][177][177][177][177][155][177][177][177][177][177][177][177][177][177][177][177][177][177][177][189]"
62210 poke211,0:poke214,10:sys58732:x=2:gosub62230:gosub62280
62220 poke211,0:poke214,15:sys58732:x=5:gosub62230:goto62300
62230 gosub62260:print"[171][219][219][177][177][177][155][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][155]
62240 [129]i[178]1[164]x:[141]62260:[153]"-(NULL)<open                                waitpoke-":[130]
62250 [141]62260:[153]"-(NULL)(NULL)poke================================(NULL)":[142]
62260 [151]646,1:[139]x[177]2[167][151]646,15
62270 [142]
62280 [151]214,11:[151]211,20[171][195](p$)[173]2:[158]58732:[153]"open"p$
62290 [153][166]20[171][195](au$)[173]2)""au$:[142]
62300 [151]214,15:[151]211,0:[158]58732:
62310 [153]"open(len) 1996 mid$ & asc (NULL)ublishing, right$nc.
62320 print"[159][212]his is the copyrighted work of
62330 [153]"openmid$ & asc (NULL)ublishing, right$nc. right$t is not
62340 print"[159]shareware nor public domain.
62350 [153]"open1-800-594-3370 or 1-318-221-8718
62360 fori=dvtodv:close2:open2,i,2:close2:ifstthen62380
62370 close15:open15,i,15,"r0:"+f$+"="+f$:input#15,er:close15:ifer=63then62390
62380 next:print""f$" not found!":poke186,8:end
62390 q$=chr$(34):poke646,peek(53281):print"";
62400 print"p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$f$q$","i
62410 print"r[213]:";:poke631,13:poke632,145:poke633,145:poke634,145
62420 poke635,145:poke636,13:poke198,6